home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGSCAL
/
TBUTIL2.LZH
/
FLOAT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1984-07-04
|
389b
|
20 lines
program Float;
{ Test range of floating point numbers.
{ Author: Alan Miller
{ Taken from 'Pascal Programs for Scientists and Engineers'
{ Entered by Danny Cavasos June 1984}
var
i:integer;
x:real;
begin
writeln;
x:=1.0e-4/3.0;
for i:=1 to 40 do
begin
write('x=',x);
x:=0.1*x;
writeln(' x=',x);
x:=0.1*x
end;
end.